home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / 1769.ZIP / PFCOM.FOR < prev    next >
Text File  |  1987-02-22  |  839b  |  20 lines
  1.     implicit real*8 (a-h,o-z)
  2.     parameter (ntot=20000,nvar=200,nterm=2500,nch=15,nchp=nch+1,
  3.      +   nder=70, ntott=ntot/2, ntermt=nterm/2, mitay=9,
  4.      +   ninch=8000, ninl=300, nchpl=127, nlab=20, ndind=9)
  5.     character*1 a,ha,hc,hn,pv,ap,inpl,pl
  6.     common/ch/a(nchpl),ha(26),hc(26),hn(10),pv(nchp,nvar)
  7.      ,   ,ap(nchpl),inpl(ninch),pl(nchp,nlab)
  8.     common/sc/nb,nd,nv,ns,np,nt,maxe,maxnt,maxite,itetop,ndump
  9.      ,   ,minns,lintot,idflg,line,lines,linret,labels,tnow,tbeg
  10.     common/i1/itb(nterm),ite(nterm)
  11.     common/i2/itbt(ntermt),itet(ntermt)
  12.     common/i3/ivn(ntot)
  13.     common/i4/ivp(ntot)
  14.     common/i5/ifnt(ntott),ifpt(ntott)
  15.     common/i6/ider(3,nder),ittb(nvar),itte(nvar),ipv(nvar)
  16.      ,   ,inpba(ninl),inpea(ninl),linlab(nlab),ipl(nlab)
  17.      ,   ,idt(ndind,nvar),ios(nvar),iosi(nvar)
  18.     common/f1/tm(nterm)
  19.     common/f2/tmt(ntermt)
  20.